(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    102441,       2419]
NotebookOptionsPosition[     95015,       2321]
NotebookOutlinePosition[     95502,       2340]
CellTagsIndexPosition[     95459,       2337]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8825094894165773`*^9, 3.8825094915153112`*^9}, {
  3.8827623199125557`*^9, 3.882762348888859*^9}, {3.882762407647229*^9, 
  3.8827624097926035`*^9}, {3.8830213714182444`*^9, 3.883021371648853*^9}, {
  3.8841157757275205`*^9, 3.884115776078488*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"6b2b6615-10b3-4c3a-a04e-e79ecf0d3383"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DQCoefficients", "[", 
    RowBox[{"xlist_", ",", 
     RowBox[{"maxorder_", ":", "2"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "M", ",", "XList", ",", "n", ",", "i", ",", "j", ",", "m", ",", "c"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"XList", "=", "xlist"}], ";", "\[IndentingNewLine]", 
      RowBox[{"n", "=", 
       RowBox[{"Length", "[", "XList", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"M", "[", "i_", "]"}], ":=", 
       RowBox[{
        RowBox[{"Product", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
            "XList", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
            "-", 
            RowBox[{
            "XList", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}],
            ")"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", 
            RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], 
        RowBox[{"Product", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
           "XList", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
           "-", 
           RowBox[{
           "XList", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"i", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"maxorder", "+", "1"}], "}"}], ",", 
         RowBox[{"{", "n", "}"}], ",", 
         RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "n"}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"j", "=", "1"}], ",", 
           RowBox[{"j", "\[LessEqual]", "n"}], ",", 
           RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"i", "!=", "j"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"c", "\[LeftDoubleBracket]", 
                 RowBox[{"1", ",", "i", ",", "j"}], "\[RightDoubleBracket]"}],
                 "=", 
                RowBox[{
                 RowBox[{"M", "[", "i", "]"}], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "XList", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    "XList", "\[LeftDoubleBracket]", "j", 
                    "\[RightDoubleBracket]"}]}], ")"}], 
                   RowBox[{"M", "[", "j", "]"}]}], ")"}]}]}], ";"}]}], "]"}], 
            ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "n"}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"c", "\[LeftDoubleBracket]", 
           RowBox[{"1", ",", "i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{"c", "\[LeftDoubleBracket]", 
               RowBox[{"1", ",", "i", ",", "j"}], "\[RightDoubleBracket]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "1", ",", 
                RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}], "-", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"c", "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "i", ",", "j"}], "\[RightDoubleBracket]"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", 
               RowBox[{"i", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}]}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "2"}], ",", 
        RowBox[{"m", "\[LessEqual]", "maxorder"}], ",", 
        RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", "n"}], ",", 
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"j", "=", "1"}], ",", 
              RowBox[{"j", "\[LessEqual]", "n"}], ",", 
              RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"i", "\[NotEqual]", "j"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"c", "\[LeftDoubleBracket]", 
                    RowBox[{"m", ",", "i", ",", "j"}], 
                    "\[RightDoubleBracket]"}], "=", 
                   RowBox[{"m", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"c", "\[LeftDoubleBracket]", 
                    RowBox[{
                    RowBox[{"m", "-", "1"}], ",", "i", ",", "i"}], 
                    "\[RightDoubleBracket]"}], 
                    RowBox[{"c", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "i", ",", "j"}], 
                    "\[RightDoubleBracket]"}]}], "-", 
                    RowBox[{
                    RowBox[{"c", "\[LeftDoubleBracket]", 
                    RowBox[{
                    RowBox[{"m", "-", "1"}], ",", "i", ",", "j"}], 
                    "\[RightDoubleBracket]"}], "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "XList", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    "XList", "\[LeftDoubleBracket]", "j", 
                    "\[RightDoubleBracket]"}]}], ")"}]}]}], ")"}]}]}], 
                  ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
            ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", "n"}], ",", 
           RowBox[{"i", "++"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"c", "\[LeftDoubleBracket]", 
              RowBox[{"m", ",", "i", ",", "i"}], "\[RightDoubleBracket]"}], 
             "=", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Sum", "[", 
                RowBox[{
                 RowBox[{"c", "\[LeftDoubleBracket]", 
                  RowBox[{"m", ",", "i", ",", "j"}], 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"j", ",", "1", ",", 
                   RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}], "-", 
              RowBox[{"Sum", "[", 
               RowBox[{
                RowBox[{"c", "\[LeftDoubleBracket]", 
                 RowBox[{"m", ",", "i", ",", "j"}], "\[RightDoubleBracket]"}],
                 ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", 
                  RowBox[{"i", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}]}], 
            ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"c", "\[LeftDoubleBracket]", 
        RowBox[{
         RowBox[{"maxorder", "+", "1"}], ",", ";;", ",", ";;"}], 
        "\[RightDoubleBracket]"}], "=", 
       RowBox[{"IdentityMatrix", "[", "n", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "c", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.848884659679061*^9, 3.848884665524933*^9}, 
   3.8841402400276136`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"402d6b51-add3-4c3c-bbe4-174050d6655f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"expandedCheb", "[", "ngp_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"res", ",", "k"}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"res", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0.0", ",", 
          RowBox[{"{", "ngp", "}"}]}], "]"}]}], ";", "\n", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"ngp", "==", "1"}], ",", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"res", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "=", "0.0"}], ";"}], ",", "\n", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", "=", "1"}], ",", 
            RowBox[{"k", "<=", "ngp"}], ",", 
            RowBox[{"k", "++"}], ",", "\n", 
            RowBox[{
             RowBox[{
              RowBox[{"res", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", "*", 
                    RowBox[{"(", 
                    RowBox[{"ngp", "-", "k", "+", "1"}], ")"}]}], "-", 
                   "1.0"}], ")"}], "*", 
                 RowBox[{"Pi", "/", 
                  RowBox[{"(", 
                   RowBox[{"2", "*", "ngp"}], ")"}]}]}], "]"}], "/", 
               RowBox[{"Cos", "[", 
                RowBox[{"Pi", "/", 
                 RowBox[{"(", 
                  RowBox[{"2", "*", "ngp"}], ")"}]}], "]"}]}]}], ";"}]}], 
           "\n", "]"}], ";"}]}], "\n", "]"}], ";", "\n", 
       RowBox[{"Return", "[", "res", "]"}]}]}], "\n", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"4bbd83fc-a5b5-4175-a2f6-cde12508b8b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LocalDQCoefficientsOdd", "[", 
    RowBox[{"arr_", ",", "L_", ",", 
     RowBox[{"maxorder_", ":", "2"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ret", ",", "c", ",", "m", ",", "i", ",", "n"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"n", "=", 
       RowBox[{"Length", "[", "arr", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Which", "[", 
       RowBox[{
        RowBox[{"L", ">", "n"}], ",", 
        RowBox[{
        "Return", "[", 
         "\"\<Error! too large local point number L. L should be no more than \
total node number.\>\"", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"EvenQ", "[", "L", "]"}], ",", 
        RowBox[{
        "Return", "[", "\"\<Error! L should be odd number.\>\"", "]"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"ret", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"maxorder", "+", "1"}], "}"}], ",", 
         RowBox[{"{", "n", "}"}], ",", 
         RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"DQCoefficients", "[", 
        RowBox[{
         RowBox[{"arr", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "L"}], "]"}], "]"}], ",", "maxorder"}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "1"}], ",", 
        RowBox[{"m", "<=", 
         RowBox[{"maxorder", "+", "1"}]}], ",", 
        RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"ret", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{"1", ";;", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}], ",", 
             RowBox[{"1", ";;", "L"}]}], "]"}], "]"}], "=", 
          RowBox[{"c", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{"1", ";;", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}]}], "]"}], 
           "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}]}], ",", 
        RowBox[{"i", "<=", 
         RowBox[{"n", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"c", "=", 
          RowBox[{"DQCoefficients", "[", 
           RowBox[{
            RowBox[{"arr", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"L", "-", "1"}], ")"}], "/", "2"}]}], ";;", 
               RowBox[{"i", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"L", "-", "1"}], ")"}], "/", "2"}]}]}], "]"}], 
             "]"}], ",", "maxorder"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"m", "=", "1"}], ",", 
           RowBox[{"m", "<=", 
            RowBox[{"maxorder", "+", "1"}]}], ",", 
           RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"ret", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", "i", ",", 
                RowBox[{
                 RowBox[{"i", "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"L", "-", "1"}], ")"}], "/", "2"}]}], ";;", 
                 RowBox[{"i", "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"L", "-", "1"}], ")"}], "/", "2"}]}]}]}], "]"}], 
              "]"}], "=", 
             RowBox[{"c", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}], "]"}], 
              "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"DQCoefficients", "[", 
        RowBox[{
         RowBox[{"arr", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"n", "-", "L", "+", "1"}], ";;", "n"}], "]"}], "]"}], ",",
          "maxorder"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "1"}], ",", 
        RowBox[{"m", "<=", 
         RowBox[{"maxorder", "+", "1"}]}], ",", 
        RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"ret", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{
              RowBox[{"1", "+", "n", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"L", "+", "1"}], ")"}], "/", "2"}]}], ";;", "n"}], 
             ",", 
             RowBox[{
              RowBox[{"n", "-", "L", "+", "1"}], ";;", "n"}]}], "]"}], "]"}], 
          "=", 
          RowBox[{"c", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"L", "+", "1"}], ")"}], "/", "2"}], ";;"}]}], "]"}], 
           "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "ret", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.884118631779708*^9, 3.884118676527937*^9}, {
   3.8841221692250605`*^9, 3.8841221694873257`*^9}, 3.8841222838253813`*^9, {
   3.8841226940811386`*^9, 3.8841227192804594`*^9}, {3.8841228286329346`*^9, 
   3.884122828904622*^9}, {3.884123587176317*^9, 3.88412365919975*^9}, {
   3.884123701536625*^9, 3.88412374855195*^9}, {3.884124072474501*^9, 
   3.8841242658251305`*^9}, {3.8841244883553023`*^9, 3.884124752545721*^9}, {
   3.884125031842204*^9, 3.8841251318820066`*^9}, {3.884139191389552*^9, 
   3.884139191997201*^9}, {3.8841397033740826`*^9, 3.8841397336521482`*^9}, {
   3.8841399814045362`*^9, 3.8841399946792727`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"4b27a0be-22b4-4ba7-8bb7-338127081ecc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LocalDQCoefficientsEven", "[", 
    RowBox[{"arr_", ",", "L_", ",", 
     RowBox[{"maxorder_", ":", "2"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ret", ",", "c", ",", "m", ",", "i", ",", "n"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"n", "=", 
       RowBox[{"Length", "[", "arr", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Which", "[", 
       RowBox[{
        RowBox[{"L", ">", "n"}], ",", 
        RowBox[{
        "Return", "[", 
         "\"\<Error! too large local point number L. L should be no more than \
total node number.\>\"", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"OddQ", "[", "L", "]"}], ",", 
        RowBox[{
        "Return", "[", "\"\<Error! L should be even number.\>\"", "]"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"ret", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"maxorder", "+", "1"}], "}"}], ",", 
         RowBox[{"{", "n", "}"}], ",", 
         RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"DQCoefficients", "[", 
        RowBox[{
         RowBox[{"arr", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "L"}], "]"}], "]"}], ",", "maxorder"}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "1"}], ",", 
        RowBox[{"m", "<=", 
         RowBox[{"maxorder", "+", "1"}]}], ",", 
        RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"ret", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{"1", ";;", 
              RowBox[{"1", "+", 
               RowBox[{"L", "/", "2"}]}]}], ",", 
             RowBox[{"1", ";;", "L"}]}], "]"}], "]"}], "=", 
          RowBox[{"c", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{"1", ";;", 
              RowBox[{"1", "+", 
               RowBox[{"L", "/", "2"}]}]}]}], "]"}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", 
         RowBox[{"2", "+", 
          RowBox[{"L", "/", "2"}]}]}], ",", 
        RowBox[{"i", "<=", 
         RowBox[{"n", "-", 
          RowBox[{"L", "/", "2"}], "+", "1"}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"c", "=", 
          RowBox[{"DQCoefficients", "[", 
           RowBox[{
            RowBox[{"arr", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", 
                RowBox[{"L", "/", "2"}]}], ";;", 
               RowBox[{"i", "+", 
                RowBox[{"L", "/", "2"}], "-", "1"}]}], "]"}], "]"}], ",", 
            "maxorder"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"m", "=", "1"}], ",", 
           RowBox[{"m", "<=", 
            RowBox[{"maxorder", "+", "1"}]}], ",", 
           RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"ret", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", "i", ",", 
                RowBox[{
                 RowBox[{"i", "-", 
                  RowBox[{"L", "/", "2"}]}], ";;", 
                 RowBox[{"i", "+", 
                  RowBox[{"L", "/", "2"}], "-", "1"}]}]}], "]"}], "]"}], "=", 
             RowBox[{"c", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", 
                RowBox[{"1", "+", 
                 RowBox[{"L", "/", "2"}]}]}], "]"}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"DQCoefficients", "[", 
        RowBox[{
         RowBox[{"arr", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"n", "-", "L", "+", "1"}], ";;", "n"}], "]"}], "]"}], ",",
          "maxorder"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"m", "=", "1"}], ",", 
        RowBox[{"m", "<=", 
         RowBox[{"maxorder", "+", "1"}]}], ",", 
        RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"ret", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{
              RowBox[{"n", "-", 
               RowBox[{"L", "/", "2"}], "+", "2"}], ";;", "n"}], ",", 
             RowBox[{
              RowBox[{"n", "-", "L", "+", "1"}], ";;", "n"}]}], "]"}], "]"}], 
          "=", 
          RowBox[{"c", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"L", "/", "2"}], "+", "2"}], ";;"}]}], "]"}], "]"}]}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "ret", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.884118631779708*^9, 3.884118676527937*^9}, {
   3.8841221692250605`*^9, 3.8841221694873257`*^9}, 3.8841222838253813`*^9, {
   3.8841226940811386`*^9, 3.8841227192804594`*^9}, {3.8841228286329346`*^9, 
   3.884122828904622*^9}, {3.884123587176317*^9, 3.88412365919975*^9}, {
   3.884123701536625*^9, 3.88412374855195*^9}, {3.884124072474501*^9, 
   3.8841242658251305`*^9}, {3.8841244883553023`*^9, 3.884124752545721*^9}, {
   3.884125031842204*^9, 3.8841251318820066`*^9}, {3.884138009083138*^9, 
   3.8841380642763224`*^9}, {3.8841381014195347`*^9, 3.884138112437752*^9}, {
   3.884138202827603*^9, 3.8841382077552404`*^9}, {3.88413824963653*^9, 
   3.8841383296841955`*^9}, {3.884138393604771*^9, 3.884138440643112*^9}, {
   3.8841384975163064`*^9, 3.884138501770941*^9}, {3.8841385440350733`*^9, 
   3.8841385540344515`*^9}, {3.884139039909565*^9, 3.8841390400602837`*^9}, {
   3.8841391967650595`*^9, 3.8841391977005944`*^9}, {3.884139540013315*^9, 
   3.884139542579728*^9}, 3.8841396967725873`*^9, {3.884139741244961*^9, 
   3.8841397451566467`*^9}, {3.8841400025652094`*^9, 3.884140009382763*^9}, 
   3.9095411625659747`*^9, {3.909541370062372*^9, 3.9095413706371403`*^9}, {
   3.909541718070976*^9, 3.909541718224611*^9}, {3.9095420312914276`*^9, 
   3.909542031611123*^9}, 3.909542169604156*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"fd5c0f72-c8dc-490c-b535-6483be32c7fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LocalDQCoefficients", "[", 
   RowBox[{"arr_", ",", "L_", ",", 
    RowBox[{"maxorder_", ":", "2"}]}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"EvenQ", "[", "L", "]"}], ",", 
    RowBox[{"LocalDQCoefficientsEven", "[", 
     RowBox[{"arr", ",", "L", ",", "maxorder"}], "]"}], ",", 
    RowBox[{"LocalDQCoefficientsOdd", "[", 
     RowBox[{"arr", ",", "L", ",", "maxorder"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8841392160495386`*^9, 3.884139261723441*^9}, {
  3.8841397580116177`*^9, 3.884139769577341*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"9f741b53-df8e-4dbc-850f-1c7a3b7cd66f"],

Cell["\:6d4b\:8bd5", "Text",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.88413965545817*^9, 3.8841396590754166`*^9}},
 Background->RGBColor[
  0.9, 1, 1],ExpressionUUID->"147c51b9-0b5b-444a-9dd8-48602a8f4cea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", "=", 
   RowBox[{"2.0", "*", "Pi"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"0.5", "*", 
     RowBox[{"(", 
      RowBox[{"b", "-", "a"}], ")"}], 
     RowBox[{"expandedCheb", "[", "n", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "+", "a"}], ")"}], "*", "0.5"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"Length", "[", "x", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8841249124754267`*^9, 3.884124933144523*^9}, {
   3.884125671681758*^9, 3.884125692730299*^9}, {3.8841373857068567`*^9, 
   3.884137454360997*^9}, {3.884137594515934*^9, 3.8841375974347095`*^9}, {
   3.8841393303769474`*^9, 3.884139383330845*^9}, 3.884139507674486*^9, {
   3.8841396661246023`*^9, 3.8841396705932074`*^9}, 3.884139816833563*^9, {
   3.8841398568177357`*^9, 3.8841398665880136`*^9}, 3.8841400352667904`*^9, 
   3.8841401152676306`*^9, {3.9095415927585554`*^9, 3.9095415964524307`*^9}, 
   3.9095422142341557`*^9, {3.909542333508135*^9, 3.909542391883429*^9}, {
   3.9095445892265806`*^9, 3.9095446270284195`*^9}, 3.909544747571043*^9, {
   3.90954478081914*^9, 3.909544782744506*^9}, {3.90954481432178*^9, 
   3.9095448302269363`*^9}, 3.9095457566931553`*^9, {3.909545799756749*^9, 
   3.9095458790685606`*^9}, 3.9095462711075077`*^9, 3.9095464705316753`*^9, 
   3.909546581044058*^9, 3.9095468229633374`*^9, {3.9096016514860673`*^9, 
   3.9096016551130104`*^9}, {3.9096018881584167`*^9, 
   3.9096019017953243`*^9}, {3.909612147250783*^9, 3.9096121912274113`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"020f971e-287b-414b-b299-216cded0d043"],

Cell["\:5168\:5c40\:5fae\:5206\:6c42\:79ef\:6cd5\:6743\:7cfb\:6570\:6d4b\:8bd5\
", "Text",
 CellChangeTimes->{{3.9096122068674974`*^9, 3.909612230273939*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"2199b640-ed9c-41cb-8eb6-25eb29516a84"],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"DQCoefficients", "[", 
    RowBox[{"x", ",", "3"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9096122477069316`*^9, 3.909612266683629*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"390e3bcb-948e-4ee5-88b1-ff1075f1ae73"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"c", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9096122711667013`*^9, 3.9096122781786575`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"63d80af6-6d4e-4a13-ab06-84375900352e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "4.0225046904486925`"}], "5.954179564127086`", 
     RowBox[{"-", "3.129147952531246`"}], "1.9975990096257803`", 
     RowBox[{"-", "1.3347529853606945`"}], "0.8660500667203098`", 
     RowBox[{"-", "0.49057795522443887`"}], "0.15915494309189546`"},
    {
     RowBox[{"-", "0.734201794825547`"}], 
     RowBox[{"-", "0.4204966261228813`"}], "1.6934826686903677`", 
     RowBox[{"-", "0.8660500667203099`"}], "0.5368769113103594`", 
     RowBox[{"-", "0.33685464674562304`"}], "0.18773605574793573`", 
     RowBox[{"-", "0.060492501334301625`"}]},
    {"0.1722680690406472`", 
     RowBox[{"-", "0.7560768314095979`"}], 
     RowBox[{"-", "0.12544122201799968`"}], "1.0215757075947627`", 
     RowBox[{"-", "0.49057795522443876`"}], "0.28096686289244993`", 
     RowBox[{"-", "0.1503930324565943`"}], "0.04767840158077077`"},
    {
     RowBox[{"-", "0.07903726189613308`"}], "0.2778900890379051`", 
     RowBox[{"-", "0.7342017948255457`"}], 
     RowBox[{"-", "0.03165788651058343`"}], "0.8001259307729274`", 
     RowBox[{"-", "0.3525761356205884`"}], "0.17226806904064745`", 
     RowBox[{"-", "0.052811009998629165`"}]},
    {"0.05281100999862911`", 
     RowBox[{"-", "0.172268069040647`"}], "0.35257613562058787`", 
     RowBox[{"-", "0.8001259307729274`"}], "0.031657886510583544`", 
     "0.7342017948255466`", 
     RowBox[{"-", "0.27789008903790596`"}], "0.07903726189613318`"},
    {
     RowBox[{"-", "0.04767840158077064`"}], "0.1503930324565937`", 
     RowBox[{"-", "0.2809668628924491`"}], "0.49057795522443787`", 
     RowBox[{"-", "1.0215757075947607`"}], "0.125441222017996`", 
     "0.7560768314096001`", 
     RowBox[{"-", "0.17226806904064726`"}]},
    {"0.060492501334301445`", 
     RowBox[{"-", "0.18773605574793484`"}], "0.33685464674562193`", 
     RowBox[{"-", "0.5368769113103584`"}], "0.8660500667203084`", 
     RowBox[{"-", "1.69348266869037`"}], "0.4204966261228861`", 
     "0.7342017948255454`"},
    {
     RowBox[{"-", "0.1591549430918952`"}], "0.49057795522443715`", 
     RowBox[{"-", "0.866050066720308`"}], "1.3347529853606939`", 
     RowBox[{"-", "1.9975990096257796`"}], "3.1291479525312518`", 
     RowBox[{"-", "5.954179564127089`"}], "4.022504690448689`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.909612281403802*^9},
 CellLabel->
  "Out[24]//TableForm=",ExpressionUUID->"7c516212-bc1c-498b-9590-\
0f1ed3c41259"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"c", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.9096122916336393`*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"aae1075f-8968-44a4-8f9e-f0b3669fb0a7"],

Cell[BoxData[
 TagBox[GridBox[{
    {"10.945249510726429`", 
     RowBox[{"-", "23.00307811478738`"}], "20.579172546283473`", 
     RowBox[{"-", "14.48322223274656`"}], "10.02934945321147`", 
     RowBox[{"-", "6.615411162039333`"}], "3.7776824177212216`", 
     RowBox[{"-", "1.2297424183693195`"}]},
    {"3.6876407635300517`", 
     RowBox[{"-", "5.923890105341543`"}], "2.408309550006889`", 
     RowBox[{"-", "0.12138787948850205`"}], 
     RowBox[{"-", "0.12496377609773707`"}], "0.13165461758148772`", 
     RowBox[{"-", "0.08739510283166435`"}], "0.030031932641017615`"},
    {
     RowBox[{"-", "0.2961780851518282`"}], "1.9007622820167271`", 
     RowBox[{"-", "2.897623436009039`"}], "1.5131760091554027`", 
     RowBox[{"-", "0.2849774078748329`"}], "0.0873951028316639`", 
     RowBox[{"-", "0.029969678929812817`"}], "0.007415213961718625`"},
    {"0.0678147665473791`", 
     RowBox[{"-", "0.2902483291170607`"}], "1.3181975809825766`", 
     RowBox[{"-", "2.1237359693758258`"}], "1.2297424183693182`", 
     RowBox[{"-", "0.27094349339392865`"}], "0.09387178367512818`", 
     RowBox[{"-", "0.02469875768758697`"}]},
    {
     RowBox[{"-", "0.024698757687586927`"}], "0.09387178367512784`", 
     RowBox[{"-", "0.2709434933939282`"}], "1.229742418369318`", 
     RowBox[{"-", "2.1237359693758258`"}], "1.3181975809825779`", 
     RowBox[{"-", "0.2902483291170619`"}], "0.06781476654737922`"},
    {"0.007415213961718953`", 
     RowBox[{"-", "0.02996967892981376`"}], "0.0873951028316657`", 
     RowBox[{"-", "0.28497740787483594`"}], "1.5131760091554067`", 
     RowBox[{"-", "2.897623436009045`"}], "1.900762282016731`", 
     RowBox[{"-", "0.2961780851518273`"}]},
    {"0.030031932641018097`", 
     RowBox[{"-", "0.08739510283166574`"}], "0.1316546175814904`", 
     RowBox[{"-", "0.12496377609774184`"}], 
     RowBox[{"-", "0.12138787948849428`"}], "2.4083095500068836`", 
     RowBox[{"-", "5.923890105341537`"}], "3.687640763530047`"},
    {
     RowBox[{"-", "1.2297424183693164`"}], "3.7776824177212047`", 
     RowBox[{"-", "6.6154111620393135`"}], "10.029349453211456`", 
     RowBox[{"-", "14.483222232746542`"}], "20.579172546283488`", 
     RowBox[{"-", "23.003078114787375`"}], "10.945249510726399`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.909612294050341*^9},
 CellLabel->
  "Out[25]//TableForm=",ExpressionUUID->"5042854f-d57d-40df-b239-\
1faed461281f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"c", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.9096122984358487`*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"e3f55c93-cec4-4070-a996-6acbaa7e986d"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "21.1792543633604`"}], "51.223378083436884`", 
     RowBox[{"-", "57.420119030781926`"}], "48.32805760063373`", 
     RowBox[{"-", "35.83927035379162`"}], "24.40456733521579`", 
     RowBox[{"-", "14.156172206531465`"}], "4.638812935179008`"},
    {
     RowBox[{"-", "10.082695542705434`"}], "22.66571895619675`", 
     RowBox[{"-", "21.92065529736846`"}], "15.212505609798981`", 
     RowBox[{"-", "9.655210047102248`"}], "6.075367826613679`", 
     RowBox[{"-", "3.38560492487504`"}], "1.0905734194417689`"},
    {
     RowBox[{"-", "0.845140537265211`"}], "0.12006118555587797`", 
     "3.2566491803475346`", 
     RowBox[{"-", "4.948966584886483`"}], "3.9089711465006465`", 
     RowBox[{"-", "2.368743116352977`"}], "1.2871104831782119`", 
     RowBox[{"-", "0.4099417570776004`"}]},
    {"0.422724815773465`", 
     RowBox[{"-", "1.3433272374518777`"}], "1.2528769724723732`", 
     "0.6004758782130963`", 
     RowBox[{"-", "2.1459222663122293`"}], "1.9082862436779213`", 
     RowBox[{"-", "1.0119118536845424`"}], "0.3167974473117935`"},
    {
     RowBox[{"-", "0.3167974473117932`"}], "1.01191185368454`", 
     RowBox[{"-", "1.9082862436779182`"}], "2.1459222663122297`", 
     RowBox[{"-", "0.6004758782130977`"}], 
     RowBox[{"-", "1.2528769724723765`"}], "1.3433272374518812`", 
     RowBox[{"-", "0.4227248157734654`"}]},
    {"0.40994175707760006`", 
     RowBox[{"-", "1.2871104831782088`"}], "2.3687431163529737`", 
     RowBox[{"-", "3.9089711465006447`"}], "4.948966584886475`", 
     RowBox[{"-", "3.256649180347526`"}], 
     RowBox[{"-", "0.12006118555588463`"}], "0.8451405372652158`"},
    {
     RowBox[{"-", "1.090573419441765`"}], "3.3856049248750217`", 
     RowBox[{"-", "6.075367826613657`"}], "9.655210047102226`", 
     RowBox[{"-", "15.21250560979895`"}], "21.920655297368477`", 
     RowBox[{"-", "22.665718956196777`"}], "10.082695542705423`"},
    {
     RowBox[{"-", "4.638812935178986`"}], "14.156172206531377`", 
     RowBox[{"-", "24.404567335215663`"}], "35.83927035379149`", 
     RowBox[{"-", "48.32805760063355`"}], "57.420119030781755`", 
     RowBox[{"-", "51.22337808343665`"}], "21.179254363360226`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.909612299054755*^9},
 CellLabel->
  "Out[26]//TableForm=",ExpressionUUID->"63f62d0d-eaec-4eae-8d4f-\
017aa65d6e3e"]
}, Open  ]],

Cell["\:5c40\:90e8\:5fae\:5206\:6c42\:79ef\:6cd5\:6743\:7cfb\:6570\:6d4b\:8bd5\
", "Text",
 CellChangeTimes->{{3.9096122068674974`*^9, 3.909612230273939*^9}, {
  3.9096123075379705`*^9, 3.909612310074166*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"02b30d33-f341-4006-8c1e-25d08fc2df3c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"L", "=", "3"}], ",", 
   RowBox[{"L", "<=", "8"}], ",", 
   RowBox[{"L", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c", "=", 
     RowBox[{"LocalDQCoefficients", "[", 
      RowBox[{"x", ",", "L", ",", "3"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<\\n\\nbandWidth=\>\"", "<>", 
      RowBox[{"ToString", "[", "L", "]"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<\\norder=1\>\"", "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"TableForm", "[", 
      RowBox[{"c", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<\\norder=2\>\"", "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"TableForm", "[", 
      RowBox[{"c", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<\\norder=3\>\"", "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"TableForm", "[", 
      RowBox[{"c", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<\\norder=0\>\"", "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"TableForm", "[", 
      RowBox[{"c", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "]"}], "]"}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.9096123270344143`*^9, 3.909612352786397*^9}, {
  3.909612445594736*^9, 3.9096125120835643`*^9}, {3.9096125570510635`*^9, 
  3.9096126045949993`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"6cb03f4e-80b5-40b7-b3cc-b9642b945d85"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\\n\\nbandWidth=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075226517`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"7d71103e-04d9-485d-b11f-\
ebcfab66bb81"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607528652*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"cb2c0a8c-ed9c-4617-a74c-\
1e1afc446a17"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "2.8250316115958394`"}], "3.2223787596757623`", 
     RowBox[{"-", "0.3973471480799229`"}], "0.`", "0.`", "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "1.3566280219447482`"}], "0.9592808738648253`", 
     "0.39734714807992283`", "0.`", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", 
     RowBox[{"-", "0.6409709876810306`"}], "0.2654988761851594`", 
     "0.3754721114958712`", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.45015815807855347`"}], "0.06592413594738161`", 
     "0.38423402213117186`", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.3842340221311718`"}], 
     RowBox[{"-", "0.06592413594738128`"}], "0.4501581580785531`", "0.`", 
     "0.`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "0.37547211149587045`"}], 
     RowBox[{"-", "0.265498876185162`"}], "0.6409709876810324`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "0.3973471480799244`"}], 
     RowBox[{"-", "0.9592808738648213`"}], "1.3566280219447457`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "0.3973471480799244`", 
     RowBox[{"-", "3.2223787596757623`"}], "2.825031611595838`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607533651*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"cf4e6ce6-3311-40bb-871c-\
a6ae95780337"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075366535`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"4a7591ed-a2c6-451c-8c36-\
2fb435ae5b9e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"3.070182008295032`", 
     RowBox[{"-", "4.73175253792332`"}], "1.661570529628288`", "0.`", "0.`", 
     "0.`", "0.`", "0.`"},
    {"3.070182008295033`", 
     RowBox[{"-", "4.73175253792332`"}], "1.6615705296282877`", "0.`", "0.`", 
     "0.`", "0.`", "0.`"},
    {"0.`", "1.1102259332938778`", 
     RowBox[{"-", "1.9599560750011522`"}], "0.8497301417072745`", "0.`", 
     "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.7203664304552584`", 
     RowBox[{"-", "1.3858982314610864`"}], "0.6655318010058281`", "0.`", 
     "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0.6655318010058279`", 
     RowBox[{"-", "1.3858982314610857`"}], "0.7203664304552578`", "0.`", 
     "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.8497301417072745`", 
     RowBox[{"-", "1.9599560750011553`"}], "1.1102259332938809`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "1.661570529628293`", 
     RowBox[{"-", "4.731752537923326`"}], "3.0701820082950326`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "1.6615705296282923`", 
     RowBox[{"-", "4.731752537923327`"}], "3.070182008295035`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607539652*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"9d505fdd-d159-4fb4-af2d-\
c0e26b3e4cae"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607542679*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"dea299f3-c6c1-402e-a869-\
54b08d2cbacb"],

Cell[BoxData[
 TagBox[GridBox[{
    {"4.6629367034256575`*^-15", 
     RowBox[{"-", "5.329070518200751`*^-15"}], "6.661338147750939`*^-16", 
     "0.`", "0.`", "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "2.6645352591003757`*^-15"}], "3.3306690738754696`*^-15", 
     RowBox[{"-", "6.661338147750939`*^-16"}], "0.`", "0.`", "0.`", "0.`", 
     "0.`"},
    {"0.`", "6.661338147750939`*^-16", 
     RowBox[{"-", "9.992007221626409`*^-16"}], "3.3306690738754696`*^-16", 
     "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "3.3306690738754696`*^-16", 
     RowBox[{"-", "3.3306690738754696`*^-16"}], "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "3.3306690738754696`*^-16"}], "0.`", 
     "3.3306690738754696`*^-16", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "1.3322676295501878`*^-15"}], "1.3322676295501878`*^-15", 
     "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "1.9984014443252818`*^-15"}], "9.992007221626409`*^-15", 
     RowBox[{"-", "7.993605777301127`*^-15"}]},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "2.6645352591003757`*^-15", 
     RowBox[{"-", "5.329070518200751`*^-15"}], "2.6645352591003757`*^-15"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075456805`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"33c24edb-1ae5-4988-bdb0-\
613aaafe4b2d"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607562652*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"7a3b78b1-35ae-4cec-8e4c-\
4d6e51ad12a6"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0.`", "0.`", "0.`", "0.`", "0.`"},
    {"0", "1", "0", "0.`", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0", "1", "0", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0", "1", "0", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0", "1", "0", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0", "1", "0", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "0", "1", "0"},
    {"0.`", "0.`", "0.`", "0.`", "0.`", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075646515`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"47912091-2d52-4c0a-b7a1-\
b09b92db849f"],

Cell[BoxData["\<\"\\n\\nbandWidth=4\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607567651*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"1fec1b03-fdb7-4b53-b0f6-\
0e6a0297ba45"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075696516`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"3755dcc4-0194-4e14-ac97-\
a59df190b7f6"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "3.2223787596757627`"}], "3.9784555910853605`", 
     RowBox[{"-", "0.8660500667203069`"}], "0.10997323531070907`", "0.`", 
     "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "1.0988106370952586`"}], "0.46870291864038727`", 
     "0.7014634890153323`", 
     RowBox[{"-", "0.07135577056046088`"}], "0.`", "0.`", "0.`", "0.`"},
    {"0.6224262271192007`", 
     RowBox[{"-", "1.8253309405851295`"}], "0.9997006710107051`", 
     "0.20320404245522364`", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0.2436238396011076`", 
     RowBox[{"-", "1.0383181357609554`"}], "0.5565020911718194`", 
     "0.23819220498802854`", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0.14604181714314346`", 
     RowBox[{"-", "0.8001259307729277`"}], "0.3499677726943745`", 
     "0.30411634093540973`", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0.10326715923872241`", 
     RowBox[{"-", "0.7223631103357009`"}], "0.1503930324565933`", 
     "0.46870291864038516`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0.07135577056046086`", 
     RowBox[{"-", "0.7014634890153343`"}], 
     RowBox[{"-", "0.46870291864038294`"}], "1.0988106370952564`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "0.10997323531070914`"}], "0.8660500667203097`", 
     RowBox[{"-", "3.9784555910853627`"}], "3.2223787596757623`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075726514`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"730df4a2-a64a-4e56-9a9f-\
d3bec4735e0c"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075756516`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"f088dd3f-12fa-42fe-985d-\
ab4e8c23030d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"5.315218516501501`", 
     RowBox[{"-", "9.003634436977983`"}], "4.309771652840923`", 
     RowBox[{"-", "0.6213557323644416`"}], "0.`", "0.`", "0.`", "0.`"},
    {"3.5648205807669564`", 
     RowBox[{"-", "5.672956637096355`"}], "2.2450365082064727`", 
     RowBox[{"-", "0.13690045187707375`"}], "0.`", "0.`", "0.`", "0.`"},
    {"0.3305069276166335`", "0.4813334603043842`", 
     RowBox[{"-", "1.5700965721625333`"}], "0.7582561842415156`", "0.`", 
     "0.`", "0.`", "0.`"},
    {"0.`", "0.03212138224377295`", "0.6428185538001714`", 
     RowBox[{"-", "1.321216375835078`"}], "0.6462764397911336`", "0.`", "0.`",
      "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.01925536121469433`"}], "0.7203664304552577`", 
     RowBox[{"-", "1.4407328609105157`"}], "0.7396217916699522`", "0.`", 
     "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.05483462944942999`"}], "1.0339284824087216`", 
     RowBox[{"-", "2.180793743718932`"}], "1.2016998907596403`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "0.13690045187707314`"}], "2.2450365082064767`", 
     RowBox[{"-", "5.672956637096358`"}], "3.5648205807669546`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "0.6213557323644421`"}], "4.309771652840935`", 
     RowBox[{"-", "9.003634436978`"}], "5.315218516501508`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075776505`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"688c8c28-fb28-4482-8fd5-\
e9f6f06078bd"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075806513`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"b6be709c-3b8d-42f8-a251-\
2eb16dd06064"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "3.6597841952469357`"}], "6.963880454047349`", 
     RowBox[{"-", "4.317009804135216`"}], "1.0129135453348028`", "0.`", "0.`",
      "0.`", "0.`"},
    {
     RowBox[{"-", "3.6597841952469796`"}], "6.963880454047408`", 
     RowBox[{"-", "4.317009804135234`"}], "1.0129135453348048`", "0.`", "0.`",
      "0.`", "0.`"},
    {
     RowBox[{"-", "3.659784195246973`"}], "6.963880454047402`", 
     RowBox[{"-", "4.317009804135234`"}], "1.012913545334805`", "0.`", "0.`", 
     "0.`", "0.`"},
    {"0.`", 
     RowBox[{"-", "1.0129135453348033`"}], "2.4453896186586985`", 
     RowBox[{"-", "2.039673361618032`"}], "0.6071972882941366`", "0.`", "0.`",
      "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.6071972882941374`"}], "1.7291515819967551`", 
     RowBox[{"-", "1.7291515819967551`"}], "0.6071972882941374`", "0.`", 
     "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.6071972882941371`"}], "2.0396733616180334`", 
     RowBox[{"-", "2.4453896186587016`"}], "1.0129135453348055`", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "1.0129135453348055`"}], "4.317009804135241`", 
     RowBox[{"-", "6.963880454047409`"}], "3.6597841952469743`"},
    {"0.`", "0.`", "0.`", "0.`", 
     RowBox[{"-", "1.0129135453348053`"}], "4.317009804135241`", 
     RowBox[{"-", "6.963880454047413`"}], "3.659784195246977`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126075836506`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"a82c1767-3d4c-4832-be80-\
60f86677bcd7"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607585167*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"377a69bd-3e72-45ac-a5ce-\
9ad044225ae3"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0", "0.`", "0.`", "0.`", "0.`"},
    {"0", "1", "0", "0", "0.`", "0.`", "0.`", "0.`"},
    {"0", "0", "1", "0", "0.`", "0.`", "0.`", "0.`"},
    {"0.`", "0", "0", "1", "0", "0.`", "0.`", "0.`"},
    {"0.`", "0.`", "0", "0", "1", "0", "0.`", "0.`"},
    {"0.`", "0.`", "0.`", "0", "0", "1", "0", "0.`"},
    {"0.`", "0.`", "0.`", "0.`", "0", "0", "1", "0"},
    {"0.`", "0.`", "0.`", "0.`", "0", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607589159*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"23250928-0bc3-47cd-b117-\
32424c701a1c"],

Cell[BoxData["\<\"\\n\\nbandWidth=5\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607593034*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"54847667-86e0-4ac4-a195-\
a071510a6dd8"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607596033*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"400238ca-d1b1-4475-8753-\
ee1593262e99"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "3.4878776358609254`"}], "4.557131745036455`", 
     RowBox[{"-", "1.3566280219447444`"}], "0.3314230121325428`", 
     RowBox[{"-", "0.04404909936332787`"}], "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "0.9592808738648239`"}], "0.16458657770497775`", 
     "0.9592808738648213`", 
     RowBox[{"-", "0.18773605574793548`"}], "0.02314947804296031`", "0.`", 
     "0.`", "0.`"},
    {"0.3973471480799239`", 
     RowBox[{"-", "1.3347529853606914`"}], "0.5838087623689496`", 
     "0.3909400982031593`", 
     RowBox[{"-", "0.037343023291341315`"}], "0.`", "0.`", "0.`"},
    {"0.`", "0.13184827189476203`", 
     RowBox[{"-", "0.7014634890153334`"}], "0.14061018253006385`", 
     "0.4960095898375177`", 
     RowBox[{"-", "0.06700455524701016`"}], "0.`", "0.`"},
    {"0.`", "0.`", "0.06700455524701021`", 
     RowBox[{"-", "0.4960095898375178`"}], 
     RowBox[{"-", "0.1406101825300637`"}], "0.7014634890153338`", 
     RowBox[{"-", "0.1318482718947625`"}], "0.`"},
    {"0.`", "0.`", "0.`", "0.03734302329134124`", 
     RowBox[{"-", "0.3909400982031584`"}], 
     RowBox[{"-", "0.583808762368953`"}], "1.3347529853606936`", 
     RowBox[{"-", "0.39734714807992355`"}]},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.02314947804296029`"}], "0.18773605574793534`", 
     RowBox[{"-", "0.9592808738648236`"}], 
     RowBox[{"-", "0.1645865777049731`"}], "0.9592808738648217`"},
    {"0.`", "0.`", "0.`", "0.044049099363327876`", 
     RowBox[{"-", "0.33142301213254294`"}], "1.3566280219447482`", 
     RowBox[{"-", "4.5571317450364575`"}], "3.4878776358609245`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607599034*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"09b4a1e1-a244-4b39-a902-\
944fe1524516"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607601735*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"16bde196-544b-468c-a398-\
cd48d7b0953f"],

Cell[BoxData[
 TagBox[GridBox[{
    {"7.026294395175215`", 
     RowBox[{"-", "12.733061931423727`"}], "7.471427618601715`", 
     RowBox[{"-", "2.048545846695673`"}], "0.28388576434246987`", "0.`", 
     "0.`", "0.`"},
    {"3.6956165952935707`", 
     RowBox[{"-", "5.958037070301678`"}], "2.4867160297168476`", 
     RowBox[{"-", "0.24599601055621376`"}], "0.021700455847474123`", "0.`", 
     "0.`", "0.`"},
    {
     RowBox[{"-", "0.11951648507543972`"}], "1.462195682346245`", 
     RowBox[{"-", "2.4016314124367053`"}], "1.1336159060497446`", 
     RowBox[{"-", "0.07466369088384461`"}], "0.`", "0.`", "0.`"},
    {"0.`", 
     RowBox[{"-", "0.09228529209722419`"}], "1.0177391844699377`", 
     RowBox[{"-", "1.7841058095562303`"}], "0.9332282674095145`", 
     RowBox[{"-", "0.0745763502259977`"}], "0.`", "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.07457635022599776`"}], "0.9332282674095146`", 
     RowBox[{"-", "1.78410580955623`"}], "1.017739184469938`", 
     RowBox[{"-", "0.09228529209722466`"}], "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.0746636908838447`"}], "1.1336159060497444`", 
     RowBox[{"-", "2.401631412436707`"}], "1.4621956823462452`", 
     RowBox[{"-", "0.11951648507543755`"}]},
    {"0.`", "0.`", "0.`", "0.02170045584747389`", 
     RowBox[{"-", "0.24599601055621195`"}], "2.48671602971685`", 
     RowBox[{"-", "5.958037070301678`"}], "3.695616595293567`"},
    {"0.`", "0.`", "0.`", "0.2838857643424698`", 
     RowBox[{"-", "2.0485458466956725`"}], "7.471427618601732`", 
     RowBox[{"-", "12.733061931423748`"}], "7.026294395175219`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076047354`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"c00f234a-40af-4f48-9852-\
6f693dc83d77"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607607734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"33df1639-4d2f-489e-9a95-\
a9735860a2ce"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "7.893337823676148`"}], "16.191251079663648`", 
     RowBox[{"-", "12.139596898324399`"}], "4.544075408050425`", 
     RowBox[{"-", "0.7023917657135262`"}], "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "6.034423084418714`"}], "12.139596898324378`", 
     RowBox[{"-", "8.704770337757436`"}], "2.9935744791791565`", 
     RowBox[{"-", "0.3939779553273841`"}], "0.`", "0.`", "0.`"},
    {
     RowBox[{"-", "2.5995965238517678`"}], "4.653116156418219`", 
     RowBox[{"-", "2.3580384236895746`"}], "0.12862233253136168`", 
     "0.17589645859176192`", "0.`", "0.`", "0.`"},
    {"0.`", 
     RowBox[{"-", "0.5698744139191445`"}], "1.1102159919893309`", 
     RowBox[{"-", "0.3912237607936521`"}], 
     RowBox[{"-", "0.4147003642202223`"}], "0.26558254694368805`", "0.`", 
     "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.2655825469436882`"}], "0.4147003642202223`", 
     "0.39122376079365284`", 
     RowBox[{"-", "1.110215991989333`"}], "0.5698744139191462`", "0.`"},
    {"0.`", "0.`", "0.`", 
     RowBox[{"-", "0.17589645859176148`"}], 
     RowBox[{"-", "0.12862233253136435`"}], "2.3580384236895844`", 
     RowBox[{"-", "4.65311615641823`"}], "2.5995965238517718`"},
    {"0.`", "0.`", "0.`", "0.3939779553273839`", 
     RowBox[{"-", "2.993574479179156`"}], "8.704770337757449`", 
     RowBox[{"-", "12.13959689832438`"}], "6.0344230844187035`"},
    {"0.`", "0.`", "0.`", "0.7023917657135268`", 
     RowBox[{"-", "4.544075408050429`"}], "12.139596898324436`", 
     RowBox[{"-", "16.1912510796637`"}], "7.893337823676166`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076107335`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"7161b00e-88da-4986-8627-\
4a6893a8f6d5"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607612734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"59bd992c-e613-423c-9205-\
9e964985198e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0", "0", "0.`", "0.`", "0.`"},
    {"0", "1", "0", "0", "0", "0.`", "0.`", "0.`"},
    {"0", "0", "1", "0", "0", "0.`", "0.`", "0.`"},
    {"0.`", "0", "0", "1", "0", "0", "0.`", "0.`"},
    {"0.`", "0.`", "0", "0", "1", "0", "0", "0.`"},
    {"0.`", "0.`", "0.`", "0", "0", "1", "0", "0"},
    {"0.`", "0.`", "0.`", "0", "0", "0", "1", "0"},
    {"0.`", "0.`", "0.`", "0", "0", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076147337`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"5513d175-3d9d-4590-8ec9-\
828cf42a1773"],

Cell[BoxData["\<\"\\n\\nbandWidth=6\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607617734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"74b31361-1275-4115-925e-\
e898e0660d74"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076217346`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"d114425f-9bec-4f2f-b9ab-\
4685f0b92bb0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "3.691081678316149`"}], "5.047709700260893`", 
     RowBox[{"-", "1.8757870898252222`"}], "0.6783140109723736`", 
     RowBox[{"-", "0.18773605574793542`"}], "0.02858111265603995`", "0.`", 
     "0.`"},
    {
     RowBox[{"-", "0.8660500667203095`"}], 
     RowBox[{"-", "0.06049250133429873`"}], "1.1974730788528496`", 
     RowBox[{"-", "0.34689099883983093`"}], "0.08907361399034158`", 
     RowBox[{"-", "0.013113125948752025`"}], "0.`", "0.`"},
    {"0.2873739127692148`", 
     RowBox[{"-", "1.06925410917553`"}], "0.30284189947650036`", 
     "0.5786761539510947`", 
     RowBox[{"-", "0.11510584372856769`"}], "0.015467986707287948`", "0.`", 
     "0.`"},
    {
     RowBox[{"-", "0.23276057037494866`"}], "0.69378199767966`", 
     RowBox[{"-", "1.2961355206104441`"}], "0.5379573306099876`", 
     "0.3314230121325427`", 
     RowBox[{"-", "0.03426624943679755`"}], "0.`", "0.`"},
    {"0.`", 
     RowBox[{"-", "0.05045614924009314`"}], "0.2493089763818657`", 
     RowBox[{"-", "0.8001259307729275`"}], "0.163506158405346`", 
     "0.5191590678804782`", 
     RowBox[{"-", "0.0813921226546692`"}], "0.`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.015467986707287933`"}], "0.11510584372856747`", 
     RowBox[{"-", "0.5786761539510935`"}], 
     RowBox[{"-", "0.3028418994765036`"}], "1.069254109175532`", 
     RowBox[{"-", "0.2873739127692146`"}]},
    {"0.`", "0.`", "0.013113125948752018`", 
     RowBox[{"-", "0.0890736139903415`"}], "0.3468909988398307`", 
     RowBox[{"-", "1.197473078852852`"}], "0.060492501334303395`", 
     "0.8660500667203074`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.02858111265603997`"}], "0.18773605574793545`", 
     RowBox[{"-", "0.678314010972374`"}], "1.8757870898252267`", 
     RowBox[{"-", "5.047709700260896`"}], "3.6910816783161478`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076237335`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"aab8e7c8-d6a6-4787-9b8c-\
42995e348acf"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076267347`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"e4b0f1ce-d025-4175-85fe-\
baf0f8b12c71"],

Cell[BoxData[
 TagBox[GridBox[{
    {"8.443796065567433`", 
     RowBox[{"-", "16.15521368877113`"}], "11.092954223231162`", 
     RowBox[{"-", "4.4683725605654825`"}], "1.2862108078200638`", 
     RowBox[{"-", "0.1993748472820468`"}], "0.`", "0.`"},
    {"3.7263056742627465`", 
     RowBox[{"-", "6.032127060965803`"}], "2.5651225094268115`", 
     RowBox[{"-", "0.2983855453728648`"}], "0.0434009116949485`", 
     RowBox[{"-", "0.0043164890458388715`"}], "0.`", "0.`"},
    {
     RowBox[{"-", "0.2479231618763483`"}], "1.7721968229782572`", 
     RowBox[{"-", "2.72969324542056`"}], "1.3528198147662054`", 
     RowBox[{"-", "0.16546092279939667`"}], "0.018060692351842288`", "0.`", 
     "0.`"},
    {
     RowBox[{"-", "0.0654570125724466`"}], "0.06574191540760255`", 
     "0.8505052986537132`", 
     RowBox[{"-", "1.672363699517594`"}], "0.8869431699433243`", 
     RowBox[{"-", "0.06536967191459964`"}], "0.`", "0.`"},
    {"0.`", "0.014189296708827261`", 
     RowBox[{"-", "0.125844066089617`"}], "1.0187519758281205`", 
     RowBox[{"-", "1.8696295179748361`"}], "1.0690069003335574`", 
     RowBox[{"-", "0.10647458880605197`"}], "0.`"},
    {"0.`", "0.`", "0.01806069235184237`", 
     RowBox[{"-", "0.16546092279939706`"}], "1.3528198147662058`", 
     RowBox[{"-", "2.7296932454205636`"}], "1.772196822978259`", 
     RowBox[{"-", "0.24792316187634675`"}]},
    {"0.`", "0.`", 
     RowBox[{"-", "0.004316489045838749`"}], "0.04340091169494765`", 
     RowBox[{"-", "0.2983855453728616`"}], "2.565122509426811`", 
     RowBox[{"-", "6.0321270609658`"}], "3.7263056742627416`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.19937484728204688`"}], "1.2862108078200634`", 
     RowBox[{"-", "4.468372560565482`"}], "11.092954223231182`", 
     RowBox[{"-", "16.15521368877115`"}], "8.443796065567431`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607629734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"3a778946-ff94-44d8-85da-\
6e8015502f17"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076327343`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"c2fb1d19-2786-4aac-bb1d-\
fd52ad8d056d"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "12.176652097416412`"}], "26.532086491233635`", 
     RowBox[{"-", "23.082890244883387`"}], "11.856150250705538`", 
     RowBox[{"-", "3.731152334628389`"}], "0.602457934989015`", "0.`", "0.`"},
    {
     RowBox[{"-", "7.7008408996022`"}], "16.162685388320483`", 
     RowBox[{"-", "12.962244299284139`"}], "5.838327631768958`", 
     RowBox[{"-", "1.5723132927336991`"}], "0.23438547153059824`", "0.`", 
     "0.`"},
    {
     RowBox[{"-", "1.8072509945032909`"}], "2.7402248333794375`", 
     RowBox[{"-", "0.3337018923606645`"}], 
     RowBox[{"-", "1.2239960936622691`"}], "0.7361693554369154`", 
     RowBox[{"-", "0.11144520829012841`"}], "0.`", "0.`"},
    {"1.2458084575247033`", 
     RowBox[{"-", "3.577522088194388`"}], "4.293089471037661`", 
     RowBox[{"-", "2.5179518266936265`"}], "0.4662192441550488`", 
     "0.09035674217060163`", "0.`", "0.`"},
    {"0.`", "0.270057326961259`", 
     RowBox[{"-", "1.2413336775071317`"}], "2.0424275561517655`", 
     RowBox[{"-", "1.2365034311378913`"}], 
     RowBox[{"-", "0.13446486142588776`"}], "0.2998170869578863`", "0.`"},
    {"0.`", "0.`", "0.11144520829012837`", 
     RowBox[{"-", "0.7361693554369144`"}], "1.2239960936622658`", 
     "0.33370189236067194`", 
     RowBox[{"-", "2.740224833379447`"}], "1.807250994503295`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.23438547153059808`"}], "1.5723132927336978`", 
     RowBox[{"-", "5.838327631768955`"}], "12.962244299284158`", 
     RowBox[{"-", "16.16268538832049`"}], "7.7008408996021895`"},
    {"0.`", "0.`", 
     RowBox[{"-", "0.6024579349890155`"}], "3.731152334628389`", 
     RowBox[{"-", "11.856150250705541`"}], "23.08289024488342`", 
     RowBox[{"-", "26.532086491233656`"}], "12.176652097416405`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076357346`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"2498478a-2b33-4268-8e7a-\
cea0e06430ad"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607637735*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"5c69223e-6ee8-42a1-940b-\
c86c12df5716"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0", "0", "0", "0.`", "0.`"},
    {"0", "1", "0", "0", "0", "0", "0.`", "0.`"},
    {"0", "0", "1", "0", "0", "0", "0.`", "0.`"},
    {"0", "0", "0", "1", "0", "0", "0.`", "0.`"},
    {"0.`", "0", "0", "0", "1", "0", "0", "0.`"},
    {"0.`", "0.`", "0", "0", "0", "1", "0", "0"},
    {"0.`", "0.`", "0", "0", "0", "0", "1", "0"},
    {"0.`", "0.`", "0", "0", "0", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076407337`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"b90f9384-b82b-4a5c-a194-\
461c7c92e403"],

Cell[BoxData["\<\"\\n\\nbandWidth=7\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076427345`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"88c7c710-8820-4dd4-94ce-\
745c0c64f57a"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076447344`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"f46ba762-2331-4fb4-9642-\
465806bcf52e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "3.8633497473567973`"}], "5.50094463219399`", 
     RowBox[{"-", "2.450833941558873`"}], "1.1974730788528523`", 
     RowBox[{"-", "0.5346270545877664`"}], "0.18773605574793553`", 
     RowBox[{"-", "0.03734302329134134`"}], "0.`"},
    {
     RowBox[{"-", "0.7946942961598487`"}], 
     RowBox[{"-", "0.248228557082234`"}], "1.4356652838408783`", 
     RowBox[{"-", "0.5619337257848996`"}], "0.2327605703749492`", 
     RowBox[{"-", "0.07903726189613335`"}], "0.015467986707287967`", "0.`"},
    {"0.21994647062141792`", 
     RowBox[{"-", "0.8918534317170244`"}], "0.07776282043722371`", 
     "0.7818801964063182`", 
     RowBox[{"-", "0.2508824440359943`"}], "0.07776282043722638`", 
     RowBox[{"-", "0.014616432149167632`"}], "0.`"},
    {
     RowBox[{"-", "0.1318482718947622`"}], "0.4282831214944989`", 
     RowBox[{"-", "0.959280873864822`"}], "0.23384098967457784`", 
     "0.5346270545877658`", 
     RowBox[{"-", "0.12749705658131175`"}], "0.02187503658405336`", "0.`"},
    {"0.`", 
     RowBox[{"-", "0.02187503658405327`"}], "0.12749705658131164`", 
     RowBox[{"-", "0.5346270545877658`"}], 
     RowBox[{"-", "0.23384098967457811`"}], "0.9592808738648233`", 
     RowBox[{"-", "0.4282831214945`"}], "0.13184827189476228`"},
    {"0.`", "0.014616432149167545`", 
     RowBox[{"-", "0.07776282043722617`"}], "0.2508824440359938`", 
     RowBox[{"-", "0.7818801964063167`"}], 
     RowBox[{"-", "0.07776282043722704`"}], "0.8918534317170265`", 
     RowBox[{"-", "0.21994647062141787`"}]},
    {"0.`", 
     RowBox[{"-", "0.01546798670728788`"}], "0.07903726189613314`", 
     RowBox[{"-", "0.23276057037494885`"}], "0.5619337257848989`", 
     RowBox[{"-", "1.4356652838408808`"}], "0.24822855708223912`", 
     "0.7946942961598464`"},
    {"0.`", "0.03734302329134119`", 
     RowBox[{"-", "0.1877360557479353`"}], "0.5346270545877663`", 
     RowBox[{"-", "1.1974730788528525`"}], "2.4508339415588787`", 
     RowBox[{"-", "5.500944632193994`"}], "3.8633497473567955`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076477337`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"0d662ff2-0933-4dd4-b94a-\
a79fb46682d9"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607651734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"686d0b55-0cd8-46e9-965c-\
ba064c0319e7"],

Cell[BoxData[
 TagBox[GridBox[{
    {"9.71550709235711`", 
     RowBox[{"-", "19.501067995233377`"}], "15.33804402044609`", 
     RowBox[{"-", "8.300889607736133`"}], "3.847016828201042`", 
     RowBox[{"-", "1.3742826362019374`"}], "0.27567229816720656`", "0.`"},
    {"3.7176726961710695`", 
     RowBox[{"-", "6.009413813760147`"}], "2.5363048248706956`", 
     RowBox[{"-", "0.27236860047955336`"}], "0.026016944893314103`", 
     "0.0036593427176800433`", 
     RowBox[{"-", "0.0018713944130590646`"}], "0.`"},
    {
     RowBox[{"-", "0.2887628711901095`"}], "1.8796455392381608`", 
     RowBox[{"-", "2.8660199970779114`"}], "1.475897211163092`", 
     RowBox[{"-", "0.24769860988252193`"}], "0.055791663900536914`", 
     RowBox[{"-", "0.008852936151246623`"}], "0.`"},
    {"0.043116008859792214`", 
     RowBox[{"-", "0.21991221801743935`"}], "1.212932151787403`", 
     RowBox[{"-", "1.9995669294465728`"}], "1.105573378440065`", 
     RowBox[{"-", "0.16567806419875447`"}], "0.023535672575506338`", "0.`"},
    {"0.`", "0.023535672575506247`", 
     RowBox[{"-", "0.1656780641987544`"}], "1.1055733784400652`", 
     RowBox[{"-", "1.9995669294465728`"}], "1.2129321517874037`", 
     RowBox[{"-", "0.21991221801744`"}], "0.04311600885979221`"},
    {"0.`", 
     RowBox[{"-", "0.008852936151246665`"}], "0.05579166390053728`", 
     RowBox[{"-", "0.24769860988252307`"}], "1.4758972111630937`", 
     RowBox[{"-", "2.8660199970779168`"}], "1.879645539238164`", 
     RowBox[{"-", "0.2887628711901083`"}]},
    {"0.`", 
     RowBox[{"-", "0.0018713944130592129`"}], "0.0036593427176808205`", 
     "0.02601694489331173`", 
     RowBox[{"-", "0.27236860047954753`"}], "2.536304824870692`", 
     RowBox[{"-", "6.009413813760142`"}], "3.7176726961710638`"},
    {"0.`", "0.2756722981672053`", 
     RowBox[{"-", "1.3742826362019351`"}], "3.8470168282010393`", 
     RowBox[{"-", "8.30088960773613`"}], "15.338044020446112`", 
     RowBox[{"-", "19.501067995233395`"}], "9.715507092357104`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076537347`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"9988cf25-1235-45fc-9291-\
89b0f2dacddc"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076567345`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"cbc0af50-11eb-4458-a728-\
7fc26d9888d0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "16.540441428181413`"}], "38.01315649633691`", 
     RowBox[{"-", "37.64962527744004`"}], "25.00717013502408`", 
     RowBox[{"-", "12.518382888181964`"}], "4.6340735818738885`", 
     RowBox[{"-", "0.9459506194314639`"}], "0.`"},
    {
     RowBox[{"-", "8.99212212326367`"}], "19.560028614908795`", 
     RowBox[{"-", "17.272661235542344`"}], "9.729822789176644`", 
     RowBox[{"-", "4.172527226479913`"}], "1.4273737647875602`", 
     RowBox[{"-", "0.2799145835870732`"}], "0.`"},
    {
     RowBox[{"-", "1.2550822943428106`"}], "1.287476540404895`", 
     "1.5094886328563148`", 
     RowBox[{"-", "2.8880502000587978`"}], "1.848054761672964`", 
     RowBox[{"-", "0.6215825688617578`"}], "0.11969512832919238`", "0.`"},
    {"0.739522263085258`", 
     RowBox[{"-", "2.2454900398100475`"}], "2.6030590213440563`", 
     RowBox[{"-", "0.9921724396621387`"}], 
     RowBox[{"-", "0.5532739484369922`"}], "0.5581041948062345`", 
     RowBox[{"-", "0.1097490513263705`"}], "0.`"},
    {"0.`", "0.10974905132637004`", 
     RowBox[{"-", "0.558104194806234`"}], "0.5532739484369915`", 
     "0.992172439662142`", 
     RowBox[{"-", "2.603059021344064`"}], "2.245490039810053`", 
     RowBox[{"-", "0.7395222630852585`"}]},
    {"0.`", 
     RowBox[{"-", "0.11969512832919185`"}], "0.6215825688617569`", 
     RowBox[{"-", "1.8480547616729623`"}], "2.888050200058794`", 
     RowBox[{"-", "1.5094886328563097`"}], 
     RowBox[{"-", "1.287476540404903`"}], "1.2550822943428157`"},
    {"0.`", "0.27991458358707155`", 
     RowBox[{"-", "1.4273737647875557`"}], "4.172527226479906`", 
     RowBox[{"-", "9.72982278917663`"}], "17.272661235542365`", 
     RowBox[{"-", "19.560028614908816`"}], "8.992122123263659`"},
    {"0.`", "0.9459506194314593`", 
     RowBox[{"-", "4.63407358187388`"}], "12.518382888181954`", 
     RowBox[{"-", "25.00717013502407`"}], "37.64962527744008`", 
     RowBox[{"-", "38.01315649633693`"}], "16.54044142818139`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076597333`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"587fab3e-6973-4e69-8e17-\
01b4e898c09d"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607662734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"9d7dd778-5c2e-48ef-a0f4-\
01d494888d2b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0", "0", "0", "0", "0.`"},
    {"0", "1", "0", "0", "0", "0", "0", "0.`"},
    {"0", "0", "1", "0", "0", "0", "0", "0.`"},
    {"0", "0", "0", "1", "0", "0", "0", "0.`"},
    {"0.`", "0", "0", "0", "1", "0", "0", "0"},
    {"0.`", "0", "0", "0", "0", "1", "0", "0"},
    {"0.`", "0", "0", "0", "0", "0", "1", "0"},
    {"0.`", "0", "0", "0", "0", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076647344`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"ac1c9814-1451-4673-9af6-\
cde71c09955e"],

Cell[BoxData["\<\"\\n\\nbandWidth=8\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076687346`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"5bb75d58-2f4d-467e-acca-\
b913818e1ef7"],

Cell[BoxData["\<\"\\norder=1\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607670737*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"5c6961dd-cd7b-49ea-b0bb-\
897475881648"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "4.0225046904486925`"}], "5.954179564127086`", 
     RowBox[{"-", "3.129147952531246`"}], "1.9975990096257803`", 
     RowBox[{"-", "1.3347529853606945`"}], "0.8660500667203098`", 
     RowBox[{"-", "0.49057795522443887`"}], "0.15915494309189546`"},
    {
     RowBox[{"-", "0.734201794825547`"}], 
     RowBox[{"-", "0.4204966261228813`"}], "1.6934826686903677`", 
     RowBox[{"-", "0.8660500667203099`"}], "0.5368769113103594`", 
     RowBox[{"-", "0.33685464674562304`"}], "0.18773605574793573`", 
     RowBox[{"-", "0.060492501334301625`"}]},
    {"0.1722680690406472`", 
     RowBox[{"-", "0.7560768314095979`"}], 
     RowBox[{"-", "0.12544122201799968`"}], "1.0215757075947627`", 
     RowBox[{"-", "0.49057795522443876`"}], "0.28096686289244993`", 
     RowBox[{"-", "0.1503930324565943`"}], "0.04767840158077077`"},
    {
     RowBox[{"-", "0.07903726189613308`"}], "0.2778900890379051`", 
     RowBox[{"-", "0.7342017948255457`"}], 
     RowBox[{"-", "0.03165788651058343`"}], "0.8001259307729274`", 
     RowBox[{"-", "0.3525761356205884`"}], "0.17226806904064745`", 
     RowBox[{"-", "0.052811009998629165`"}]},
    {"0.05281100999862911`", 
     RowBox[{"-", "0.172268069040647`"}], "0.35257613562058787`", 
     RowBox[{"-", "0.8001259307729274`"}], "0.031657886510583544`", 
     "0.7342017948255466`", 
     RowBox[{"-", "0.27789008903790596`"}], "0.07903726189613318`"},
    {
     RowBox[{"-", "0.04767840158077064`"}], "0.1503930324565937`", 
     RowBox[{"-", "0.2809668628924491`"}], "0.49057795522443787`", 
     RowBox[{"-", "1.0215757075947607`"}], "0.125441222017996`", 
     "0.7560768314096001`", 
     RowBox[{"-", "0.17226806904064726`"}]},
    {"0.060492501334301445`", 
     RowBox[{"-", "0.18773605574793484`"}], "0.33685464674562193`", 
     RowBox[{"-", "0.5368769113103584`"}], "0.8660500667203084`", 
     RowBox[{"-", "1.69348266869037`"}], "0.4204966261228861`", 
     "0.7342017948255454`"},
    {
     RowBox[{"-", "0.1591549430918952`"}], "0.49057795522443715`", 
     RowBox[{"-", "0.866050066720308`"}], "1.3347529853606939`", 
     RowBox[{"-", "1.9975990096257796`"}], "3.1291479525312518`", 
     RowBox[{"-", "5.954179564127089`"}], "4.022504690448689`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076737337`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"fa2021d2-a6e7-4203-a6f1-\
e7a0b63208b1"],

Cell[BoxData["\<\"\\norder=2\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607676736*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"00eeabe5-b414-4ed7-905c-\
bb47c7424fa0"],

Cell[BoxData[
 TagBox[GridBox[{
    {"10.945249510726429`", 
     RowBox[{"-", "23.00307811478738`"}], "20.579172546283473`", 
     RowBox[{"-", "14.48322223274656`"}], "10.02934945321147`", 
     RowBox[{"-", "6.615411162039333`"}], "3.7776824177212216`", 
     RowBox[{"-", "1.2297424183693195`"}]},
    {"3.6876407635300517`", 
     RowBox[{"-", "5.923890105341543`"}], "2.408309550006889`", 
     RowBox[{"-", "0.12138787948850205`"}], 
     RowBox[{"-", "0.12496377609773707`"}], "0.13165461758148772`", 
     RowBox[{"-", "0.08739510283166435`"}], "0.030031932641017615`"},
    {
     RowBox[{"-", "0.2961780851518282`"}], "1.9007622820167271`", 
     RowBox[{"-", "2.897623436009039`"}], "1.5131760091554027`", 
     RowBox[{"-", "0.2849774078748329`"}], "0.0873951028316639`", 
     RowBox[{"-", "0.029969678929812817`"}], "0.007415213961718625`"},
    {"0.0678147665473791`", 
     RowBox[{"-", "0.2902483291170607`"}], "1.3181975809825766`", 
     RowBox[{"-", "2.1237359693758258`"}], "1.2297424183693182`", 
     RowBox[{"-", "0.27094349339392865`"}], "0.09387178367512818`", 
     RowBox[{"-", "0.02469875768758697`"}]},
    {
     RowBox[{"-", "0.024698757687586927`"}], "0.09387178367512784`", 
     RowBox[{"-", "0.2709434933939282`"}], "1.229742418369318`", 
     RowBox[{"-", "2.1237359693758258`"}], "1.3181975809825779`", 
     RowBox[{"-", "0.2902483291170619`"}], "0.06781476654737922`"},
    {"0.007415213961718953`", 
     RowBox[{"-", "0.02996967892981376`"}], "0.0873951028316657`", 
     RowBox[{"-", "0.28497740787483594`"}], "1.5131760091554067`", 
     RowBox[{"-", "2.897623436009045`"}], "1.900762282016731`", 
     RowBox[{"-", "0.2961780851518273`"}]},
    {"0.030031932641018097`", 
     RowBox[{"-", "0.08739510283166574`"}], "0.1316546175814904`", 
     RowBox[{"-", "0.12496377609774184`"}], 
     RowBox[{"-", "0.12138787948849428`"}], "2.4083095500068836`", 
     RowBox[{"-", "5.923890105341537`"}], "3.687640763530047`"},
    {
     RowBox[{"-", "1.2297424183693164`"}], "3.7776824177212047`", 
     RowBox[{"-", "6.6154111620393135`"}], "10.029349453211456`", 
     RowBox[{"-", "14.483222232746542`"}], "20.579172546283488`", 
     RowBox[{"-", "23.003078114787375`"}], "10.945249510726399`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076807337`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"239700e6-ca96-476f-8865-\
d96e95a3dfc5"],

Cell[BoxData["\<\"\\norder=3\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607684734*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"afa1111c-3e0a-40cf-a9f7-\
51eba61a4908"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"-", "21.1792543633604`"}], "51.223378083436884`", 
     RowBox[{"-", "57.420119030781926`"}], "48.32805760063373`", 
     RowBox[{"-", "35.83927035379162`"}], "24.40456733521579`", 
     RowBox[{"-", "14.156172206531465`"}], "4.638812935179008`"},
    {
     RowBox[{"-", "10.082695542705434`"}], "22.66571895619675`", 
     RowBox[{"-", "21.92065529736846`"}], "15.212505609798981`", 
     RowBox[{"-", "9.655210047102248`"}], "6.075367826613679`", 
     RowBox[{"-", "3.38560492487504`"}], "1.0905734194417689`"},
    {
     RowBox[{"-", "0.845140537265211`"}], "0.12006118555587797`", 
     "3.2566491803475346`", 
     RowBox[{"-", "4.948966584886483`"}], "3.9089711465006465`", 
     RowBox[{"-", "2.368743116352977`"}], "1.2871104831782119`", 
     RowBox[{"-", "0.4099417570776004`"}]},
    {"0.422724815773465`", 
     RowBox[{"-", "1.3433272374518777`"}], "1.2528769724723732`", 
     "0.6004758782130963`", 
     RowBox[{"-", "2.1459222663122293`"}], "1.9082862436779213`", 
     RowBox[{"-", "1.0119118536845424`"}], "0.3167974473117935`"},
    {
     RowBox[{"-", "0.3167974473117932`"}], "1.01191185368454`", 
     RowBox[{"-", "1.9082862436779182`"}], "2.1459222663122297`", 
     RowBox[{"-", "0.6004758782130977`"}], 
     RowBox[{"-", "1.2528769724723765`"}], "1.3433272374518812`", 
     RowBox[{"-", "0.4227248157734654`"}]},
    {"0.40994175707760006`", 
     RowBox[{"-", "1.2871104831782088`"}], "2.3687431163529737`", 
     RowBox[{"-", "3.9089711465006447`"}], "4.948966584886475`", 
     RowBox[{"-", "3.256649180347526`"}], 
     RowBox[{"-", "0.12006118555588463`"}], "0.8451405372652158`"},
    {
     RowBox[{"-", "1.090573419441765`"}], "3.3856049248750217`", 
     RowBox[{"-", "6.075367826613657`"}], "9.655210047102226`", 
     RowBox[{"-", "15.21250560979895`"}], "21.920655297368477`", 
     RowBox[{"-", "22.665718956196777`"}], "10.082695542705423`"},
    {
     RowBox[{"-", "4.638812935178986`"}], "14.156172206531377`", 
     RowBox[{"-", "24.404567335215663`"}], "35.83927035379149`", 
     RowBox[{"-", "48.32805760063355`"}], "57.420119030781755`", 
     RowBox[{"-", "51.22337808343665`"}], "21.179254363360226`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607688242*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"bef6443a-9f9a-46a6-bd40-\
91f0cd724657"],

Cell[BoxData["\<\"\\norder=0\"\>"], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.909612607690242*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"1f629103-1a14-48c3-bb05-\
35b4c538e6a3"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "1", "0", "0", "0", "0", "0", "0"},
    {"0", "0", "1", "0", "0", "0", "0", "0"},
    {"0", "0", "0", "1", "0", "0", "0", "0"},
    {"0", "0", "0", "0", "1", "0", "0", "0"},
    {"0", "0", "0", "0", "0", "1", "0", "0"},
    {"0", "0", "0", "0", "0", "0", "1", "0"},
    {"0", "0", "0", "0", "0", "0", "0", "1"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{
  3.909612475897506*^9, {3.909612507002945*^9, 3.9096125136921453`*^9}, 
   3.9096126076932416`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"98f8ff54-9d75-42af-82d7-\
e8582fe6d606"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1507, 1348},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
TaggingRules->Association["TryRealOnly" -> False],
CellContext->Notebook,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e747\:670823\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"72a6730b-3e77-459d-832b-47d0ca5631df"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 472, 8, 29, "Input",ExpressionUUID->"6b2b6615-10b3-4c3a-a04e-e79ecf0d3383"],
Cell[1033, 30, 8460, 209, 510, "Input",ExpressionUUID->"402d6b51-add3-4c3c-bbe4-174050d6655f"],
Cell[9496, 241, 1841, 50, 230, "Input",ExpressionUUID->"4bbd83fc-a5b5-4175-a2f6-cde12508b8b0"],
Cell[11340, 293, 6660, 171, 470, "Input",ExpressionUUID->"4b27a0be-22b4-4ba7-8bb7-338127081ecc"],
Cell[18003, 466, 6612, 157, 450, "Input",ExpressionUUID->"fd5c0f72-c8dc-490c-b535-6483be32c7fe"],
Cell[24618, 625, 654, 14, 29, "Input",ExpressionUUID->"9f741b53-df8e-4dbc-850f-1c7a3b7cd66f"],
Cell[25275, 641, 217, 4, 51, "Text",ExpressionUUID->"147c51b9-0b5b-444a-9dd8-48602a8f4cea"],
Cell[25495, 647, 1801, 36, 110, "Input",ExpressionUUID->"020f971e-287b-414b-b299-216cded0d043"],
Cell[27299, 685, 254, 4, 51, "Text",ExpressionUUID->"2199b640-ed9c-41cb-8eb6-25eb29516a84"],
Cell[27556, 691, 281, 6, 29, "Input",ExpressionUUID->"390e3bcb-948e-4ee5-88b1-ff1075f1ae73"],
Cell[CellGroupData[{
Cell[27862, 701, 263, 5, 29, "Input",ExpressionUUID->"63d80af6-6d4e-4a13-ab06-84375900352e"],
Cell[28128, 708, 2767, 59, 164, "Output",ExpressionUUID->"7c516212-bc1c-498b-9590-0f1ed3c41259"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30932, 772, 237, 5, 29, "Input",ExpressionUUID->"aae1075f-8968-44a4-8f9e-f0b3669fb0a7"],
Cell[31172, 779, 2744, 56, 164, "Output",ExpressionUUID->"5042854f-d57d-40df-b239-1faed461281f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33953, 840, 237, 5, 29, "Input",ExpressionUUID->"e3f55c93-cec4-4070-a996-6acbaa7e986d"],
Cell[34193, 847, 2717, 58, 164, "Output",ExpressionUUID->"63f62d0d-eaec-4eae-8d4f-017aa65d6e3e"]
}, Open  ]],
Cell[36925, 908, 305, 5, 51, "Text",ExpressionUUID->"02b30d33-f341-4006-8c1e-25d08fc2df3c"],
Cell[CellGroupData[{
Cell[37255, 917, 1794, 45, 250, "Input",ExpressionUUID->"6cb03f4e-80b5-40b7-b3cc-b9642b945d85"],
Cell[CellGroupData[{
Cell[39074, 966, 280, 6, 60, "Print",ExpressionUUID->"7d71103e-04d9-485d-b11f-ebcfab66bb81"],
Cell[39357, 974, 271, 6, 42, "Print",ExpressionUUID->"cb2c0a8c-ed9c-4617-a74c-1e1afc446a17"],
Cell[39631, 982, 1787, 42, 134, "Print",ExpressionUUID->"cf4e6ce6-3311-40bb-871c-a6ae95780337"],
Cell[41421, 1026, 273, 6, 42, "Print",ExpressionUUID->"4a7591ed-a2c6-451c-8c36-2fb435ae5b9e"],
Cell[41697, 1034, 1694, 39, 134, "Print",ExpressionUUID->"9d505fdd-d159-4fb4-af2d-c0e26b3e4cae"],
Cell[43394, 1075, 271, 6, 42, "Print",ExpressionUUID->"dea299f3-c6c1-402e-a869-54b08d2cbacb"],
Cell[43668, 1083, 1798, 41, 158, "Print",ExpressionUUID->"33c24edb-1ae5-4988-bdb0-613aaafe4b2d"],
Cell[45469, 1126, 271, 6, 42, "Print",ExpressionUUID->"7a3b78b1-35ae-4cec-8e4c-4d6e51ad12a6"],
Cell[45743, 1134, 1077, 26, 134, "Print",ExpressionUUID->"47912091-2d52-4c0a-b7a1-b09b92db849f"],
Cell[46823, 1162, 278, 6, 60, "Print",ExpressionUUID->"1fec1b03-fdb7-4b53-b0f6-0e6a0297ba45"],
Cell[47104, 1170, 273, 6, 42, "Print",ExpressionUUID->"3755dcc4-0194-4e14-ac97-a59df190b7f6"],
Cell[47380, 1178, 1937, 44, 134, "Print",ExpressionUUID->"730df4a2-a64a-4e56-9a9f-d3bec4735e0c"],
Cell[49320, 1224, 273, 6, 42, "Print",ExpressionUUID->"f088dd3f-12fa-42fe-985d-ab4e8c23030d"],
Cell[49596, 1232, 1941, 43, 134, "Print",ExpressionUUID->"688c8c28-fb28-4482-8fd5-e9f6f06078bd"],
Cell[51540, 1277, 273, 6, 42, "Print",ExpressionUUID->"b6be709c-3b8d-42f8-a251-2eb16dd06064"],
Cell[51816, 1285, 1989, 47, 134, "Print",ExpressionUUID->"a82c1767-3d4c-4832-be80-60f86677bcd7"],
Cell[53808, 1334, 271, 6, 42, "Print",ExpressionUUID->"377a69bd-3e72-45ac-a5ce-9ad044225ae3"],
Cell[54082, 1342, 1059, 26, 134, "Print",ExpressionUUID->"23250928-0bc3-47cd-b117-32424c701a1c"],
Cell[55144, 1370, 278, 6, 60, "Print",ExpressionUUID->"54847667-86e0-4ac4-a195-a071510a6dd8"],
Cell[55425, 1378, 271, 6, 42, "Print",ExpressionUUID->"400238ca-d1b1-4475-8753-ee1593262e99"],
Cell[55699, 1386, 2222, 50, 134, "Print",ExpressionUUID->"09b4a1e1-a244-4b39-a902-944fe1524516"],
Cell[57924, 1438, 271, 6, 42, "Print",ExpressionUUID->"16bde196-544b-468c-a398-cd48d7b0953f"],
Cell[58198, 1446, 2194, 48, 134, "Print",ExpressionUUID->"c00f234a-40af-4f48-9852-6f693dc83d77"],
Cell[60395, 1496, 271, 6, 42, "Print",ExpressionUUID->"33df1639-4d2f-489e-9a95-a9735860a2ce"],
Cell[60669, 1504, 2194, 49, 134, "Print",ExpressionUUID->"7161b00e-88da-4986-8627-4a6893a8f6d5"],
Cell[62866, 1555, 271, 6, 42, "Print",ExpressionUUID->"59bd992c-e613-423c-9205-9e964985198e"],
Cell[63140, 1563, 1045, 26, 134, "Print",ExpressionUUID->"5513d175-3d9d-4590-8ec9-828cf42a1773"],
Cell[64188, 1591, 278, 6, 60, "Print",ExpressionUUID->"74b31361-1275-4115-925e-e898e0660d74"],
Cell[64469, 1599, 273, 6, 42, "Print",ExpressionUUID->"d114425f-9bec-4f2f-b9ab-4685f0b92bb0"],
Cell[64745, 1607, 2445, 56, 134, "Print",ExpressionUUID->"aab8e7c8-d6a6-4787-9b8c-42995e348acf"],
Cell[67193, 1665, 273, 6, 42, "Print",ExpressionUUID->"e4b0f1ce-d025-4175-85fe-baf0f8b12c71"],
Cell[67469, 1673, 2410, 52, 134, "Print",ExpressionUUID->"3a778946-ff94-44d8-85da-6e8015502f17"],
Cell[69882, 1727, 273, 6, 42, "Print",ExpressionUUID->"c2fb1d19-2786-4aac-bb1d-fd52ad8d056d"],
Cell[70158, 1735, 2386, 52, 134, "Print",ExpressionUUID->"2498478a-2b33-4268-8e7a-cea0e06430ad"],
Cell[72547, 1789, 271, 6, 42, "Print",ExpressionUUID->"5c69223e-6ee8-42a1-940b-c86c12df5716"],
Cell[72821, 1797, 1029, 26, 134, "Print",ExpressionUUID->"b90f9384-b82b-4a5c-a194-461c7c92e403"],
Cell[73853, 1825, 280, 6, 60, "Print",ExpressionUUID->"88c7c710-8820-4dd4-94ce-745c0c64f57a"],
Cell[74136, 1833, 273, 6, 42, "Print",ExpressionUUID->"f46ba762-2331-4fb4-9642-465806bcf52e"],
Cell[74412, 1841, 2645, 57, 134, "Print",ExpressionUUID->"0d662ff2-0933-4dd4-b94a-a79fb46682d9"],
Cell[77060, 1900, 271, 6, 42, "Print",ExpressionUUID->"686d0b55-0cd8-46e9-965c-ba064c0319e7"],
Cell[77334, 1908, 2598, 54, 134, "Print",ExpressionUUID->"9988cf25-1235-45fc-9291-89b0f2dacddc"],
Cell[79935, 1964, 273, 6, 42, "Print",ExpressionUUID->"cbc0af50-11eb-4458-a728-7fc26d9888d0"],
Cell[80211, 1972, 2599, 56, 134, "Print",ExpressionUUID->"587fab3e-6973-4e69-8e17-01b4e898c09d"],
Cell[82813, 2030, 271, 6, 42, "Print",ExpressionUUID->"9d7dd778-5c2e-48ef-a0f4-01d494888d2b"],
Cell[83087, 2038, 1013, 26, 134, "Print",ExpressionUUID->"ac1c9814-1451-4673-9af6-cde71c09955e"],
Cell[84103, 2066, 280, 6, 60, "Print",ExpressionUUID->"5bb75d58-2f4d-467e-acca-b913818e1ef7"],
Cell[84386, 2074, 271, 6, 42, "Print",ExpressionUUID->"5c6961dd-cd7b-49ea-b0bb-897475881648"],
Cell[84660, 2082, 2858, 61, 134, "Print",ExpressionUUID->"fa2021d2-a6e7-4203-a6f1-e7a0b63208b1"],
Cell[87521, 2145, 271, 6, 42, "Print",ExpressionUUID->"00eeabe5-b414-4ed7-905c-bb47c7424fa0"],
Cell[87795, 2153, 2835, 58, 134, "Print",ExpressionUUID->"239700e6-ca96-476f-8865-d96e95a3dfc5"],
Cell[90633, 2213, 271, 6, 42, "Print",ExpressionUUID->"afa1111c-3e0a-40cf-a9f7-51eba61a4908"],
Cell[90907, 2221, 2806, 60, 134, "Print",ExpressionUUID->"bef6443a-9f9a-46a6-bd40-91f0cd724657"],
Cell[93716, 2283, 271, 6, 42, "Print",ExpressionUUID->"1f629103-1a14-48c3-bb05-35b4c538e6a3"],
Cell[93990, 2291, 997, 26, 134, "Print",ExpressionUUID->"98f8ff54-9d75-42af-82d7-e8582fe6d606"]
}, Open  ]]
}, Open  ]]
}
]
*)

